type
  TFileHeader=packed record
    NameLen: Byte;
    FileSize: Integer;
  end;